
(define (analog-bubbles)
  (Out.ar
   0 (CombN.ar 
      (SinOsc.ar 
       (MIDICPS 
	(LFSaw.kr 0.4 0 24 (LFSaw.kr '(8 7.23) 0 3 80))) 0 0.04) 0.2 0.2 4)))

(structure-print
 (synthdef 
  "Anonymous" ()
  (analog-bubbles)))

(synthdef-write 
 (synthdef 
  "Anonymous" ()
  (analog-bubbles)))

(synthdef-draw
 (synthdef 
  "Anonymous" ()
  (analog-bubbles)))

(structure-print
 (as-graphdef "Anonymous"))

(synthdef-draw "Anonymous")

(map ugen-name/user
     (graphdef-ugens (as-graphdef "Anonymous")))

(synthdef-send (as-graphdef "Anonymous"))

(define g (as-graphdef "Anonymous"))

(structure-print g)

(define g
  (synthdef
   "sine"
   ((freq 800))
   (begin (structure-print freq)
	  (Out.ar 0 (SinOsc.ar freq 0 0.1)))))

(synthdef-write g)

